home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE05 / CONSTRUC / TBUUCODE.ZIP / DRBOB.PAS next >
Encoding:
Pascal/Delphi Source File  |  1995-11-07  |  792 b   |  39 lines
  1. unit DrBob;
  2. interface
  3. uses Classes;
  4.  
  5. Type
  6.   TDrBob = class(TComponent)
  7.   private
  8.   { Private 'dummy' field for read-only design property About... }
  9.     Dummy: String;
  10.  
  11.   protected
  12.   { Protected 'FAbout' declarations }
  13.     FAbout: String;
  14.  
  15.   public
  16.   { Public class declarations (override) }
  17.     constructor Create(AOwner: TComponent); override;
  18.  
  19.   published
  20.   { Published About property }
  21.     property About: String read FAbout write Dummy;
  22.   end {TDrBob};
  23.  
  24.   procedure Register;
  25.  
  26. implementation
  27.  
  28.   constructor TDrBob.Create(AOwner: TComponent);
  29.   begin
  30.     inherited Create(AOwner);
  31.     FAbout := 'TDrBob (c) 1995 by Dr.Bob (DrBob@pi.net)'
  32.   end {Create};
  33.  
  34.   procedure Register;
  35.   begin
  36.     RegisterComponents('Dr.Bob', [TDrBob])
  37.   end {Register};
  38. end.
  39.